home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / tptool.lbr / TEST86.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-06-03  |  512 b   |  22 lines
  1. program test86;
  2. { test module for os-cpm86.pas }
  3.  
  4. const
  5.   MAXSTR = 100; stdout=0; endstr=0; newline=0; { dummy declarations }
  6. type
  7.   xstring= array [1..MAXSTR] of 0..255;
  8.  
  9. procedure putstr(s:xstring; n:integer);
  10. var i: integer;
  11. begin i:=1;
  12.   while s[i] <> endstr do begin write(chr(s[i])); i:=i+1; end;
  13.   writeln;
  14. end;
  15. procedure putc(i:integer); begin end;
  16.  
  17. {$I os-cpm86.pas }
  18.  
  19. begin
  20.   listcat
  21. end.
  22.